home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
util
/
wb
/
Gurus99_15O1.lha
/
Gurus99
/
Install
< prev
next >
Wrap
Text File
|
1999-01-11
|
4KB
|
195 lines
; $VER: Install Gurus99
; © by Demon 1999
(complete 0)
(if (= @language "deutsch")
(
(set #welcome
(cat "\n\n\nHerzlich willkommen beim Gurus99 - Installer\n\n"
"Dieser Installer installiert Gurus99 auf Deinen Amiga\n\n"
"(Alte Versionen werden gelöscht)\n\n\n"
"Gurus99 © by Demon 1999"
))
(set #choose-text
(cat "Wähle das Verzeichnis wohin Gurus99 installiert werden soll. Ein Verzeichnis namens Gurus99 wird dort angelegt."
))
(set #choose-icons
(cat "Welche Icons sollen installiert werden?"
))
(set #choose-guide
(cat "Wähle Deinen liebsten Amigaguide-Reader:"
))
(set #choose-html
(cat "Wähle Deinen liebsten HTML-Reader:"
))
(set #exit
(cat "\n\nViel Spaß mit Gurus99"
))
))
(if (= @language "english")
(
(set #welcome
(cat "\n\n\nWelcome to the Gurus99 - Installer\n\n"
"This Installer will install Gurus99 on your Amiga\n\n"
"(Old versions will be deleted)\n\n\n"
"Gurus99 © by Demon 1999"
))
(set #choose-text
(cat "Choose the destination drawer for the Gurus99 archive. A directory called Gurus99 will be created there."
))
(set #choose-icons
(cat "Which icons should be installed?"
))
(set #choose-guide
(cat "Choose your favourite Amigaguide-Reader:"
))
(set #choose-html
(cat "Choose your favourite HTML-Reader:"
))
(set #exit
(cat "\n\nHave fun with Gurus99"
))
))
;********************
(if (= @language "deutsch")
(run "pr/sync SCRIPT=INST_D")
)
(if (= @language "english")
(run "pr/sync SCRIPT=INST_E")
)
;********************
(message #welcome)
(welcome)
(set @default "SYS:")
(set @default (askdir
(prompt #choose-text)
(help (cat @askdir-help))
(default @default))
)
(delete %s (tackon @default "gurus/data/#?"))
(delete %s (tackon @default "gurus/#?"))
(delete %s (tackon @default "gurus/"))
(delete %s (tackon @default "gurus.info"))
(delete %s (tackon @default "gurus9#?/data/#?"))
(delete %s (tackon @default "gurus9#?/brushes/#?"))
(delete %s (tackon @default "gurus9#?/#?"))
(delete %s (tackon @default "gurus9#?"))
(complete 1)
;********************
(copyfiles (source ".inf") (dest @default) (newname "Gurus99.info") (optional "nofail") )
(set #ICON
(askchoice
(prompt #choose-icons)
(help (cat @askchoice-help))
(default 0)
(choices
"#1: MagicWB"
"#2: NewIcons"
)
)
)
(if (= #ICON 1)
(copyfiles (source ".inf_ni") (dest @default) (newname "Gurus99.info") (optional "nofail") )
)
(makedir @default)
(set @default (tackon @default "Gurus99"))
(complete 2)
;********************
(copyfiles
(source "G99")
(dest @default)
(newname "Gurus99")
(infos)
)
(complete 11)
(copyfiles
(source "G.htm")
(dest @default)
(newname "Gurus99.html")
(infos)
)
(complete 12)
(copyfiles
(source "Info")
(dest @default)
(infos)
)
(complete 13)
(copyfiles
(source "GM_vs._Bill_Gates.txt")
(dest @default)
)
(complete 14)
;********************
(copyfiles
(source "dt")
(dest (tackon @default "data"))
(pattern "#?")
)
(complete 96)
(copyfiles
(source "br")
(dest (tackon @default "brushes"))
(pattern "#?")
)
(complete 97)
(copyfiles
(source "ft/")
(dest "Fonts:")
(pattern "#?")
)
;********************
(if (= #ICON 1)
(copyfiles (source "ni/") (dest @default) (pattern "#?") )
)
(complete 98)
;********************
(set @ttguide "c:")
(set @ttguide (askfile
(prompt #choose-guide)
(help (cat @askfile-help))
(default @ttguide))
)
(tooltype
(dest (tackon @default "Gurus99"))
(setdefaulttool @ttguide)
(settooltype "(kissdemon@gmx.net)" "")
)
(tooltype
(dest (tackon @default "Info"))
(setdefaulttool @ttguide)
(settooltype "(kissdemon@gmx.net)" "")
)
(complete 99)
;********************
(set @tthtml "c:")
(set @tthtml (askfile
(prompt #choose-html)
(help (cat @askfile-help))
(default @tthtml))
)
(tooltype
(dest (tackon @default "Gurus99.html"))
(setdefaulttool @tthtml)
(settooltype "(kissdemon@gmx.net)" "")
)
(complete 100)
;********************
(run "pr/sync COMMAND=QUIT")
(run "dt/VT Kiss")
(EXIT #exit (quiet))